A = Intersect(xAxis, yAxis)
B = (1, 3)
u = Vector(A, B)
C = (-2, 4)
v = Vector(B, C)
D = (-1, 7)
w = Vector(C, D)
E = (-3, 4)
z = Vector(D, E)
a = Vector(E, A)
k = 0 (slider from 0 to 1, step 0.01)
Ap: (x(A) + 1, y(A))
Bp: (x(B) + 1, y(B))
Cp: (x(C) + 1, y(C))
Dp: (x(D) + 1, y(D))
Ep: (x(E) + 1, y(E))
b = Segment(D, Dp)
c = Segment(C, Cp)
d = Segment(B, Bp)
e = Segment(A, Ap)
f = Segment(E, Ep)
g = Circle(A, Ap)
h = Circle(B, Bp)
p = Circle(C, Cp)
q = Circle(D, Dp)
r = Circle(E, Ep)
i = Ray(A, B)
j = Ray(B, C)
l = Ray(C, D)
m = Ray(D, E)
n = Ray(E, A)
F = Intersect(g, i)
G = Intersect(h, j)
H = Intersect(p, l)
I = Intersect(q, m)
J = Intersect(r, n)
α = Angle(Ap, A, F)
β = Angle(Bp, B, G)
γ = Angle(Cp, C, H)
δ = Angle(Dp, D, I)
ε = Angle(Ep, E, J)
Angle1k: (1 - k) * α
Angle2k: (1 - k) * β
Angle3k: (1 - k) * γ
Angle4k: (1 - k) * δ
Angle5k: (1 - k) * ε
s = Circle(A, Segment[A, B])
t = Circle(B, Segment[B, C])
c_1 = Circle(C, Segment[C, D])
d_1 = Circle(D, Segment[D, E])
e_1 = Circle(E, Segment[E, A])
Ep' = Rotate(Ep, Angle5k, E)
ζ = Angle(Ep, E, Ep')
a_1 = Ray(E, Ep')
K = Intersect(e_1, a_1)
u_1 = Vector(E, K)
Dp' = Rotate(Dp, Angle4k, D)
η = Angle(Dp, D, Dp')
b_1 = Ray(D, Dp')
L = Intersect(d_1, b_1)
v_1 = Vector(D, L)
Cp' = Rotate(Cp, Angle3k, C)
θ = Angle(Cp, C, Cp')
f_1 = Ray(C, Cp')
M = Intersect(c_1, f_1)
w_1 = Vector(C, M)
Bp' = Rotate(Bp, Angle2k, B)
ι = Angle(Bp, B, Bp')
g_1 = Ray(B, Bp')
N = Intersect(t, g_1)
z_1 = Vector(B, N)
Ap' = Rotate(Ap, Angle1k, A)
κ = Angle(Ap, A, Ap')
h_1 = Ray(A, Ap')
O = Intersect(s, h_1)
i_1 = Vector(A, O)
O' = Translate(O, z_1)
j_1 = Vector(O, O')
O'' = Translate(O', w_1)
k_1 = Vector(O', O'')
O''' = Translate(O'', v_1)
l_1 = Vector(O'', O''')
P = Translate(O''', u_1)
m_1 = Vector(O''', P)
Area, a_2, b_2, c_2, d_2, e_2 = Polygon(A, B, C, D, E)
Perimeter = PolyLine(A, O, O', O'', O''', P)
text1: "Perimeter = " + Perimeter + " cm"
text2: "Area = " + Area + " cm²"
Q = (0, -1)
R = (0, -2)
S: (Area, -1)
T: (Area, -2)
poly1, r_1, t_1, s_1, q_1 = Polygon(R, T, S, Q)
list1 = Sequence(Segment[(n, -1), (n, -2)], n, 0, floor(Area))
U = (0.2857442751963896, 1.8213425136790589)
V = (0.2857442751963896, 0.44035907707461774)
W = (8.074490857645472, 0.44035907707461774)
Z = (8.12973019510965, 1.8489621824111477)